﻿Imports System.Data
Imports System.Data.SqlClient
Imports Entidad

Public Class MensajeDatos

    Sub registrarMensaje(men As Mensaje)
        Dim conex As New Conexion
        Dim coneccion As SqlConnection = conex.conectar()
        coneccion.Open()
        Dim query As String = "INSERT INTO Mensaje_Pickeador(MEN_CIA,MEN_SUC,MEN_USU_Envia,MEN_Persona,MEN_Descripcion,MEN_FechaEnvio) " &
                              "VALUES(@cia,@suc,@usuario,@persona,@descrip,getDate())"
        Dim comando As New SqlCommand
        With comando
            .Connection = coneccion
            .CommandText = query
            .Parameters.AddWithValue("@cia", men.CIA)
            .Parameters.AddWithValue("@suc", men.SUC)
            .Parameters.AddWithValue("@usuario", men.USUARIO)
            .Parameters.AddWithValue("@persona", men.COD_PERSONA)
            .Parameters.AddWithValue("@descrip", men.DESCRIPCION)
            .ExecuteNonQuery()
        End With
        coneccion.Close()
    End Sub

    Function verificarExistencia(men As Mensaje) As Boolean
        Dim valor As Boolean = False
        Dim conex As New Conexion
        Dim coneccion As SqlConnection = conex.conectar()
        coneccion.Open()
        Dim query As String = "SELECT MEN_Codigo FROM Mensaje_Pickeador " &
                              "WHERE MEN_Persona = '" & men.COD_PERSONA & "' " &
                              "AND MEN_USU_Envia = '" & men.USUARIO & "' " &
                              "AND MEN_CIA = '" & men.CIA & "' AND MEN_SUC = '" & men.SUC & "'"
        Dim adapter As New SqlDataAdapter(query, coneccion)
        Dim ds As New DataSet
        adapter.Fill(ds)

        coneccion.Close()

        If ds.Tables(0).Rows.Count <> 0 Then
            valor = True
        End If

        Return valor
    End Function

    Sub actualizarMensaje(men As Mensaje)
        Dim conex As New Conexion
        Dim coneccion As SqlConnection = conex.conectar()
        coneccion.Open()
        Dim query As String = "UPDATE Mensaje_Pickeador " &
                              "SET MEN_Descripcion = @descrip, " &
                              "MEN_FechaEnvio = getDate() " &
                              "WHERE MEN_CIA = @cia AND MEN_SUC = @suc " &
                              "AND MEN_Persona = @persona AND MEN_USU_Envia = @usuario"

        Dim comando As New SqlCommand
        With comando
            .Connection = coneccion
            .CommandText = query
            .Parameters.AddWithValue("@cia", men.CIA)
            .Parameters.AddWithValue("@suc", men.SUC)
            .Parameters.AddWithValue("@usuario", men.USUARIO)
            .Parameters.AddWithValue("@persona", men.COD_PERSONA)
            .Parameters.AddWithValue("@descrip", men.DESCRIPCION)
            .ExecuteNonQuery()
        End With
        coneccion.Close()
    End Sub

End Class
